home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / mips-sgi-irix6.2 / gzip-el.sh.z / gzip-el.sh
Encoding:
Linux/UNIX/POSIX Shell Script  |  1998-05-21  |  1.2 KB  |  38 lines
  1. #! /bin/sh
  2. ### gzip-el.sh --- compress superfluous installed source lisp
  3.  
  4. # Author:    Jeff Miller <jmiller@smart.net>
  5. # Author:    Hrvoje Niksic <hniksic@srce.hr>
  6. # Maintainer:    Steve Baur <steve@altair.xemacs.org>
  7. # Created:    13 Feb 1997
  8. # Version:    1.0
  9. # Keywords:    internal
  10.  
  11. # This file is part of XEmacs.
  12.  
  13. # XEmacs is free software; you can redistribute it and/or modify it
  14. # under the terms of the GNU General Public License as published by
  15. # the Free Software Foundation; either version 2, or (at your option)
  16. # any later version.
  17.  
  18. # XEmacs is distributed in the hope that it will be useful, but
  19. # WITHOUT ANY WARRANTY; without even the implied warranty of
  20. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  21. # General Public License for more details.
  22.  
  23. # You should have received a copy of the GNU General Public License
  24. # along with XEmacs; see the file COPYING.  If not, write to
  25. # the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  26. # Boston, MA 02111-1307, USA.
  27.  
  28. #
  29. #
  30. echo Compressing .el files in "$1"...
  31.  
  32. find "$1" -type f -name "*.el" -print |
  33.     while read file; do
  34.         [ -s "${file}c" ] && echo "$file" && gzip -f9 "$file"
  35.     done
  36.  
  37. echo Compressing .el files in "$1"...done.
  38.